home *** CD-ROM | disk | FTP | other *** search
/ Leonardo the Inventor / Leonardo The Inventor (93026)(Broderbund)(Riverdeep)(2004).iso / LEOWINMV / SHARED.DIR / 03124_Script_SSVR SpinTo < prev    next >
Text File  |  1996-04-01  |  856b  |  34 lines
  1. on SSVR_SpinToRow destRow
  2.   set Row = getgSSVRMovieProp (#Row)
  3.   if destRow < Row then set RowDirection = -1
  4.   else set RowDirection = 1
  5.   if RowDirection = 1 then
  6.     repeat with R = Row+1 to DestRow
  7.       SSVR_OffsetRowCol 1, 0
  8.       updatestage
  9.     end repeat
  10.   else   -- RowDirection = -1
  11.     repeat with R = Row-1 down to DestRow
  12.       SSVR_OffsetRowCol -1, 0
  13.       updatestage
  14.     end repeat
  15.   end if
  16. end
  17.  
  18. on SSVR_SpinToCol destCol
  19.   set Col = getgSSVRMovieProp (#Col)
  20.   if destCol < Col then set ColDirection = -1
  21.   else set ColDirection = 1
  22.   if ColDirection = 1 then
  23.     repeat with C = Col+1 to DestCol
  24.       SSVR_OffsetRowCol 0, 1
  25.       updatestage
  26.     end repeat
  27.   else   -- ColDirection = -1
  28.     repeat with C = Col-1 down to DestCol
  29.       SSVR_OffsetRowCol 0, -1
  30.       updatestage
  31.     end repeat
  32.   end if
  33. end
  34.